home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD024c.dsk / AD.HAYSTACK.bas < prev    next >
BASIC Source File  |  2003-06-12  |  1KB  |  25 lines
  1. 10  TEXT : HOME : SPEED= 255
  2. 30  POKE 36,6: PRINT "APPLE SOFTWARE AND HARDWARE": PRINT 
  3. 40  POKE 36,7: PRINT "AT ";: INVERSE : PRINT "REASONABLE";: NORMAL : PRINT " PRICES !"
  4. 50  PRINT 
  5. 70  SPEED= 150: INVERSE 
  6. 80  PRINT "MOST $29.95 SOFTWARE ========>   $20.00"
  7. 90  PRINT "MOST $34.95 SOFTWARE ========>   $24.50"
  8. 100  PRINT "GRAPPLER PLUS ===============>  $125.00"
  9. 110  PRINT "APPLE CAT II ================>  $277.00"
  10. 120  PRINT "CHOPLIFTER ==================>   $22.00"
  11. 125  PRINT "WIZARDRY ====================>   $33.00"
  12. 128  PRINT "VISICALC ====================>  $172.00"
  13. 140  NORMAL 
  14. 150  PRINT : POKE 36,7
  15. 160  PRINT "OTHER PRICES AVAILABLE IN"
  16. 170  PRINT : POKE 36,12
  17. 180  FLASH : PRINT "FREE";: NORMAL : PRINT " PRICE LIST."
  18. 195  PRINT 
  19. 200  NORMAL : SPEED= 220
  20. 210  PRINT "WRITE TO:  HAYSTACK COMPUTING"
  21. 220  POKE 36,11: PRINT "P.O. BOX 278"
  22. 230  POKE 36,11: PRINT "MIRA LOMA,CA 91752"
  23. 235  SPEED= 255
  24. 240  VTAB 24: HTAB 12: INVERSE : PRINT "PRESS ANY KEY";: NORMAL : GET A$
  25. 250  PRINT  CHR$(13) + CHR$(4);"RUN AD.MENU"